home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / DateTimeUtils.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  14.5 KB  |  525 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        DateTimeUtils.a
  3. ;
  4. ;    Contains:    International Date and Time Interfaces (previously in TextUtils)
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1994-1997 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__DATETIMEUTILS__') = 'UNDEFINED' THEN
  19. __DATETIMEUTILS__ SET 1
  20.  
  21.     IF &TYPE('__CONDITIONALMACROS__') = 'UNDEFINED' THEN
  22.     include 'ConditionalMacros.a'
  23.     ENDIF
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27.  
  28. ; 
  29. ;
  30. ;    Here are the current routine names and the translations to the older forms.
  31. ;    Please use the newer forms in all new code and migrate the older names out of existing
  32. ;    code as maintainance permits.
  33. ;    
  34. ;    New Name                    Old Name(s)
  35. ;    
  36. ;    DateString                    IUDatePString IUDateString 
  37. ;    InitDateCache
  38. ;    LongDateString                IULDateString
  39. ;    LongTimeString                IULTimeString
  40. ;    StringToDate                String2Date
  41. ;    StringToTime                                
  42. ;    TimeString                    IUTimeString IUTimePString
  43. ;    LongDateToSeconds            LongDate2Secs
  44. ;    LongSecondsToDate            LongSecs2Date
  45. ;    DateToSeconds                Date2Secs
  46. ;    SecondsToDate                Secs2Date
  47. ;
  48.  
  49.  
  50.  
  51.                                                             ; Toggle results 
  52. toggleUndefined                    EQU        0
  53. toggleOK                        EQU        1
  54. toggleBadField                    EQU        2
  55. toggleBadDelta                    EQU        3
  56. toggleBadChar                    EQU        4
  57. toggleUnknown                    EQU        5
  58. toggleBadNum                    EQU        6
  59. toggleOutOfRange                EQU        7                    ;synonym for toggleErr3
  60. toggleErr3                        EQU        7
  61. toggleErr4                        EQU        8
  62. toggleErr5                        EQU        9
  63.  
  64.                                                             ; Date equates 
  65. smallDateBit                    EQU        31                    ;Restrict valid date/time to range of Time global
  66. togChar12HourBit                EQU        30                    ;If toggling hour by char, accept hours 1..12 only
  67. togCharZCycleBit                EQU        29                    ;Modifier for togChar12HourBit: accept hours 0..11 only
  68. togDelta12HourBit                EQU        28                    ;If toggling hour up/down, restrict to 12-hour range (am/pm)
  69. genCdevRangeBit                    EQU        27                    ;Restrict date/time to range used by genl CDEV
  70. validDateFields                    EQU        -1
  71. maxDateField                    EQU        10
  72.  
  73. eraMask                            EQU        $0001
  74. yearMask                        EQU        $0002
  75. monthMask                        EQU        $0004
  76. dayMask                            EQU        $0008
  77. hourMask                        EQU        $0010
  78. minuteMask                        EQU        $0020
  79. secondMask                        EQU        $0040
  80. dayOfWeekMask                    EQU        $0080
  81. dayOfYearMask                    EQU        $0100
  82. weekOfYearMask                    EQU        $0200
  83. pmMask                            EQU        $0400
  84. dateStdMask                        EQU        $007F                ;default for ValidDate flags and ToggleDate TogglePB.togFlags
  85.  
  86. eraField                        EQU        0
  87. yearField                        EQU        1
  88. monthField                        EQU        2
  89. dayField                        EQU        3
  90. hourField                        EQU        4
  91. minuteField                        EQU        5
  92. secondField                        EQU        6
  93. dayOfWeekField                    EQU        7
  94. dayOfYearField                    EQU        8
  95. weekOfYearField                    EQU        9
  96. pmField                            EQU        10
  97. res1Field                        EQU        11
  98. res2Field                        EQU        12
  99. res3Field                        EQU        13
  100. ; typedef SignedByte                     LongDateField
  101.  
  102.  
  103. shortDate                        EQU        0
  104. longDate                        EQU        1
  105. abbrevDate                        EQU        2
  106. ; typedef SInt8                         DateForm
  107.  
  108.  
  109.                                                             ; StringToDate status values 
  110. fatalDateTime                    EQU        $8000                ; StringToDate and String2Time mask to a fatal error 
  111. longDateFound                    EQU        1                    ; StringToDate mask to long date found 
  112. leftOverChars                    EQU        2                    ; StringToDate & Time mask to warn of left over characters 
  113. sepNotIntlSep                    EQU        4                    ; StringToDate & Time mask to warn of non-standard separators 
  114. fieldOrderNotIntl                EQU        8                    ; StringToDate & Time mask to warn of non-standard field order 
  115. extraneousStrings                EQU        16                    ; StringToDate & Time mask to warn of unparsable strings in text 
  116. tooManySeps                        EQU        32                    ; StringToDate & Time mask to warn of too many separators 
  117. sepNotConsistent                EQU        64                    ; StringToDate & Time mask to warn of inconsistent separators 
  118. tokenErr                        EQU        $8100                ; StringToDate & Time mask for 'tokenizer err encountered' 
  119. cantReadUtilities                EQU        $8200
  120. dateTimeNotFound                EQU        $8400
  121. dateTimeInvalid                    EQU        $8800
  122. ; typedef short                         StringToDateStatus
  123.  
  124. ; typedef short                         String2DateStatus
  125.  
  126. DateCacheRecord            RECORD 0
  127. hidden                     ds.w    256                ; offset: $0 (0)        ;  only for temporary use 
  128. sizeof                     EQU *                    ; size:   $200 (512)
  129.                         ENDR
  130. ; typedef struct DateCacheRecord *        DateCachePtr
  131.  
  132. DateTimeRec                RECORD 0
  133. year                     ds.w    1                ; offset: $0 (0)
  134. month                     ds.w    1                ; offset: $2 (2)
  135. day                         ds.w    1                ; offset: $4 (4)
  136. hour                     ds.w    1                ; offset: $6 (6)
  137. minute                     ds.w    1                ; offset: $8 (8)
  138. second                     ds.w    1                ; offset: $A (10)
  139. dayOfWeek                 ds.w    1                ; offset: $C (12)
  140. sizeof                     EQU *                    ; size:   $E (14)
  141.                         ENDR
  142. LongDateTime            RECORD 0
  143. f                         ds        SInt64
  144. sizeof                     EQU *                    ; size:   $8 (8)
  145.                         ENDR
  146.  
  147.  
  148. LongDateCvt                RECORD 0
  149. c                         ds        SInt64            ; offset: $0 (0)
  150.                          ORG 0
  151. lHigh                     ds.l    1                ; offset: $0 (0)
  152. lLow                     ds.l    1                ; offset: $4 (4)
  153. sizeof                     EQU *                    ; size:   $8 (8)
  154.                         ENDR
  155. LongDateRec                RECORD 0
  156. era                         ds.w    1                ; offset: $0 (0)
  157. year                     ds.w    1                ; offset: $2 (2)
  158. month                     ds.w    1                ; offset: $4 (4)
  159. day                         ds.w    1                ; offset: $6 (6)
  160. hour                     ds.w    1                ; offset: $8 (8)
  161. minute                     ds.w    1                ; offset: $A (10)
  162. second                     ds.w    1                ; offset: $C (12)
  163. dayOfWeek                 ds.w    1                ; offset: $E (14)
  164. dayOfYear                 ds.w    1                ; offset: $10 (16)
  165. weekOfYear                 ds.w    1                ; offset: $12 (18)
  166. pm                         ds.w    1                ; offset: $14 (20)
  167. res1                     ds.w    1                ; offset: $16 (22)
  168. res2                     ds.w    1                ; offset: $18 (24)
  169. res3                     ds.w    1                ; offset: $1A (26)
  170.                          ORG 0
  171. list                     ds.w    14                ; offset: $0 (0)        ; Index by LongDateField!
  172.                          ORG 0
  173. eraAlt                     ds.w    1                ; offset: $0 (0)
  174. oldDate                     ds        DateTimeRec        ; offset: $2 (2)
  175.                          ORG 28
  176. sizeof                     EQU *                    ; size:   $1C (28)
  177.                         ENDR
  178. ; typedef SInt8                         DateDelta
  179.  
  180. TogglePB                RECORD 0
  181. togFlags                 ds.l    1                ; offset: $0 (0)        ; caller normally sets low word to dateStdMask=$7F
  182. amChars                     ds.l    1                ; offset: $4 (4)        ; from 'itl0', but uppercased
  183. pmChars                     ds.l    1                ; offset: $8 (8)        ; from 'itl0', but uppercased
  184. reserved                 ds.l    4                ; offset: $C (12)
  185. sizeof                     EQU *                    ; size:   $1C (28)
  186.                         ENDR
  187. ; typedef short                         ToggleResults
  188.  
  189. ; 
  190. ; **************************************************************************************
  191. ; *
  192. ; * The following functions are new names that work on 68k and PowerPC
  193. ; *
  194. ; **************************************************************************************
  195. ;
  196.  
  197.  
  198. ;
  199. ; pascal OSErr InitDateCache(DateCachePtr theCache)
  200. ;
  201.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  202.         Macro
  203.         _InitDateCache
  204.             move.l              #$8204FFF8,-(sp)
  205.             dc.w                $A8B5
  206.         EndM
  207.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  208.         IMPORT_CFM_FUNCTION InitDateCache
  209.     ENDIF
  210.  
  211. ;
  212. ; pascal StringToDateStatus StringToDate(Ptr textPtr, long textLen, DateCachePtr theCache, long *lengthUsed, LongDateRec *dateTime)
  213. ;
  214.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  215.         Macro
  216.         _StringToDate
  217.             move.l              #$8214FFF6,-(sp)
  218.             dc.w                $A8B5
  219.         EndM
  220.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  221.         IMPORT_CFM_FUNCTION StringToDate
  222.     ENDIF
  223.  
  224. ;
  225. ; pascal StringToDateStatus StringToTime(Ptr textPtr, long textLen, DateCachePtr theCache, long *lengthUsed, LongDateRec *dateTime)
  226. ;
  227.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  228.         Macro
  229.         _StringToTime
  230.             move.l              #$8214FFF4,-(sp)
  231.             dc.w                $A8B5
  232.         EndM
  233.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  234.         IMPORT_CFM_FUNCTION StringToTime
  235.     ENDIF
  236.  
  237. ;
  238. ; pascal void IUDateString(long dateTime, DateForm longFlag, Str255 result)
  239. ;
  240.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  241.         Macro
  242.         _IUDateString
  243.             clr.w               -(sp)
  244.             dc.w                $A9ED
  245.         EndM
  246.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  247.         IMPORT_CFM_FUNCTION IUDateString
  248.     ENDIF
  249.  
  250. ;
  251. ; pascal void IUTimeString(long dateTime, Boolean wantSeconds, Str255 result)
  252. ;
  253.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  254.         Macro
  255.         _IUTimeString
  256.             move.w              #$0002,-(sp)
  257.             dc.w                $A9ED
  258.         EndM
  259.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  260.         IMPORT_CFM_FUNCTION IUTimeString
  261.     ENDIF
  262.  
  263. ;
  264. ; pascal void IUDatePString(long dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  265. ;
  266.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  267.         Macro
  268.         _IUDatePString
  269.             move.w              #$000E,-(sp)
  270.             dc.w                $A9ED
  271.         EndM
  272.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  273.         IMPORT_CFM_FUNCTION IUDatePString
  274.     ENDIF
  275.  
  276. ;
  277. ; pascal void IUTimePString(long dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  278. ;
  279.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  280.         Macro
  281.         _IUTimePString
  282.             move.w              #$0010,-(sp)
  283.             dc.w                $A9ED
  284.         EndM
  285.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  286.         IMPORT_CFM_FUNCTION IUTimePString
  287.     ENDIF
  288.  
  289. ;
  290. ; pascal void IULDateString(LongDateTime *dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  291. ;
  292.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  293.         Macro
  294.         _IULDateString
  295.             move.w              #$0014,-(sp)
  296.             dc.w                $A9ED
  297.         EndM
  298.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  299.         IMPORT_CFM_FUNCTION IULDateString
  300.     ENDIF
  301.  
  302. ;
  303. ; pascal void IULTimeString(LongDateTime *dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  304. ;
  305.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  306.         Macro
  307.         _IULTimeString
  308.             move.w              #$0016,-(sp)
  309.             dc.w                $A9ED
  310.         EndM
  311.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  312.         IMPORT_CFM_FUNCTION IULTimeString
  313.     ENDIF
  314.  
  315.  
  316. ;
  317. ; pascal void LongDateToSeconds(const LongDateRec *lDate, LongDateTime *lSecs)
  318. ;
  319.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  320.         Macro
  321.         _LongDateToSeconds
  322.             move.l              #$8008FFF2,-(sp)
  323.             dc.w                $A8B5
  324.         EndM
  325.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  326.         IMPORT_CFM_FUNCTION LongDateToSeconds
  327.     ENDIF
  328.  
  329. ;
  330. ; pascal void LongSecondsToDate(const LongDateTime *lSecs, LongDateRec *lDate)
  331. ;
  332.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  333.         Macro
  334.         _LongSecondsToDate
  335.             move.l              #$8008FFF0,-(sp)
  336.             dc.w                $A8B5
  337.         EndM
  338.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  339.         IMPORT_CFM_FUNCTION LongSecondsToDate
  340.     ENDIF
  341.  
  342. ;
  343. ; pascal ToggleResults ToggleDate(LongDateTime *lSecs, LongDateField field, DateDelta delta, short ch, const TogglePB *params)
  344. ;
  345.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  346.         Macro
  347.         _ToggleDate
  348.             move.l              #$820EFFEE,-(sp)
  349.             dc.w                $A8B5
  350.         EndM
  351.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  352.         IMPORT_CFM_FUNCTION ToggleDate
  353.     ENDIF
  354.  
  355. ;
  356. ; pascal short ValidDate(const LongDateRec *vDate, long flags, LongDateTime *newSecs)
  357. ;
  358.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  359.         Macro
  360.         _ValidDate
  361.             move.l              #$820CFFE4,-(sp)
  362.             dc.w                $A8B5
  363.         EndM
  364.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  365.         IMPORT_CFM_FUNCTION ValidDate
  366.     ENDIF
  367.  
  368. ;
  369. ; pascal OSErr ReadDateTime(unsigned long *time)
  370. ;
  371.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  372.         ; parameters:
  373.         ;    time            => A0
  374.         ; returns:
  375.         ;    OSErr           <= D0
  376.         _ReadDateTime:    OPWORD    $A039
  377.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  378.         IMPORT_CFM_FUNCTION ReadDateTime
  379.     ENDIF
  380.  
  381. ;
  382. ; pascal void GetDateTime(unsigned long *secs)
  383. ;
  384.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  385.         ; parameters:
  386.         ;    secs            => A0
  387.         Macro
  388.         _GetDateTime
  389.             move.l              $020C,(A0)
  390.         EndM
  391.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  392.         IMPORT_CFM_FUNCTION GetDateTime
  393.     ENDIF
  394.  
  395. ;
  396. ; pascal OSErr SetDateTime(unsigned long time)
  397. ;
  398.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  399.         ; parameters:
  400.         ;    time            => D0
  401.         ; returns:
  402.         ;    OSErr           <= D0
  403.         _SetDateTime:    OPWORD    $A03A
  404.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  405.         IMPORT_CFM_FUNCTION SetDateTime
  406.     ENDIF
  407.  
  408. ;
  409. ; pascal void SetTime(const DateTimeRec *d)
  410. ;
  411.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  412.         ; parameters:
  413.         ;    d               => A0
  414.         Macro
  415.         _SetTime
  416.             dc.w                $A9C7
  417.             dc.w                $A03A
  418.         EndM
  419.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  420.         IMPORT_CFM_FUNCTION SetTime
  421.     ENDIF
  422.  
  423. ;
  424. ; pascal void GetTime(DateTimeRec *d)
  425. ;
  426.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  427.         ; parameters:
  428.         ;    d               => A0
  429.         Macro
  430.         _GetTime
  431.             move.l              $020C,D0
  432.             dc.w                $A9C6
  433.         EndM
  434.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  435.         IMPORT_CFM_FUNCTION GetTime
  436.     ENDIF
  437.  
  438. ;
  439. ; pascal void DateToSeconds(const DateTimeRec *d, unsigned long *secs)
  440. ;
  441.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  442.         _DateToSeconds:    OPWORD    $A9C7
  443.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  444.         IMPORT_CFM_FUNCTION DateToSeconds
  445.     ENDIF
  446.  
  447. ;
  448. ; pascal void SecondsToDate(unsigned long secs, DateTimeRec *d)
  449. ;
  450.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  451.         ; parameters:
  452.         ;    secs            => D0
  453.         ;    d               => A0
  454.         _SecondsToDate:    OPWORD    $A9C6
  455.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  456.         IMPORT_CFM_FUNCTION SecondsToDate
  457.     ENDIF
  458.  
  459. ; 
  460. ; **************************************************************************************
  461. ; *
  462. ; * The following provide direct function prototypes for new names for 68k
  463. ; *
  464. ; **************************************************************************************
  465. ;
  466.  
  467. ;
  468. ; pascal void DateString(long dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  469. ;
  470.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  471.         Macro
  472.         _DateString
  473.             move.w              #$000E,-(sp)
  474.             dc.w                $A9ED
  475.         EndM
  476.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  477.         IMPORT_CFM_FUNCTION DateString
  478.     ENDIF
  479.  
  480. ;
  481. ; pascal void TimeString(long dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  482. ;
  483.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  484.         Macro
  485.         _TimeString
  486.             move.w              #$0010,-(sp)
  487.             dc.w                $A9ED
  488.         EndM
  489.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  490.         IMPORT_CFM_FUNCTION TimeString
  491.     ENDIF
  492.  
  493. ;
  494. ; pascal void LongDateString(LongDateTime *dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  495. ;
  496.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  497.         Macro
  498.         _LongDateString
  499.             move.w              #$0014,-(sp)
  500.             dc.w                $A9ED
  501.         EndM
  502.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  503.         IMPORT_CFM_FUNCTION LongDateString
  504.     ENDIF
  505.  
  506. ;
  507. ; pascal void LongTimeString(LongDateTime *dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  508. ;
  509.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  510.         Macro
  511.         _LongTimeString
  512.             move.w              #$0016,-(sp)
  513.             dc.w                $A9ED
  514.         EndM
  515.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  516.         IMPORT_CFM_FUNCTION LongTimeString
  517.     ENDIF
  518.  
  519.  
  520.  
  521.  
  522.  
  523.     ENDIF ; __DATETIMEUTILS__ 
  524.  
  525.